home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / graphics / ascdraw.lzh / ASCDRAW / UTILS / GET_FONT.LST < prev    next >
File List  |  1993-12-18  |  528b  |  20 lines
  1. ' 176-233: ansicharacters
  2. DEFWRD "a-z"
  3. FILESELECT "*.pi3","",font$
  4. DIM font|(4096)
  5. screen%=XBIOS(3)
  6. IF EXIST(font$)
  7.   BLOAD font$,screen%-34        !hope 34 bytes in front of screen is free ;->
  8.   font=FORM_ALERT(1,"[1][|Medium resolution (8x8) or |high resolution font? |][Med rez|Hi rez]")*8
  9.   HIDEM
  10.   FOR t=0 TO 15
  11.     FOR r=0 TO PRED(font)     !fontheight
  12.       BMOVE screen%+offset,V:font|(0)+t*16+r*256,16
  13.       ADD offset,80
  14.     NEXT r
  15.   NEXT t
  16.   SHOWM
  17.   BSAVE "font.fnt",V:font|(0),font*256
  18. ENDIF
  19. EDIT
  20.